home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / emulation / wzonka-lad / wzonka-lad_install next >
Text File  |  1999-06-14  |  8KB  |  437 lines
  1. ; $VER: Wzonka-Lad Installer Script 1.00.00 (25-May-99)
  2. ; Installer made by Lennart Johannesson
  3. ; Modified by Ville Helin
  4. ; For comments, bugs (yes, I know there's still a lot of them)
  5. ; suggestions etc. write to: 95lenjo@ostrabo.uddevalla.se
  6.  
  7.  
  8. ;Ask where to place the Wzonka-Lad directory
  9.  
  10. (message "\nWelcome to Wzonka-Lad Installer!\n-----------------------\n\nThis program will install\n Wzonka-Lad 1.00.00\n on your Amiga\n\n (c) Ville Helin 1996-1999\nvhelin@cc.hut.fi\n\n")
  11.  
  12. (welcome)
  13.  
  14. (complete 0)
  15.  
  16. (set @default-dest 
  17.     (askdir (prompt "Where would you like me to create the\n\"Wzonka-Lad\" directory?")
  18.     (help @askdir-help)
  19.     (default "Ram:")
  20.     (newpath)
  21.     )
  22. )
  23.  
  24. ;Create Wzonka-Lad directory
  25.  
  26. (complete 6)
  27.  
  28. (set target
  29.     (tackon @default-dest (cat "Wzonka-Lad")))
  30.  
  31. (makedir target
  32.      (prompt "Creating directory:\n\""target"\"")
  33.     (help @makedir-help)
  34. )
  35.  
  36. (copyfiles
  37.     (dest @default-dest)
  38.     (source "icons/install/Wzonka-Lad.info")
  39.     (files))
  40.  
  41. (set @default-dest (target))
  42.  
  43. ;Install the executables
  44.  
  45. (complete 12)
  46.  
  47. (copyfiles
  48.     (prompt "Where would you like me to put the executables?")
  49.     (help @askoptions-help)
  50.     (source "binaries/")
  51.     (dest @default-dest)
  52.     (confirm)
  53.     (files)
  54.     (infos)
  55.     (choices "Wzonka-Lad FULL" "Wzonka-Lad FAST" "Wzonka-Lad WARP" "Palette Editor")
  56. )
  57.  
  58. (set @default-dest (target))
  59.  
  60. ;Install the documents
  61.  
  62. (complete 18)
  63.  
  64. (copyfiles
  65.     (prompt "Would you like to install the documents?")
  66.     (help @copyfiles-help)
  67.     (source "Wzonka-Lad Guide")
  68.     (dest @default-dest)
  69.     (confirm)
  70.     (files)
  71.     (infos)
  72. )
  73.  
  74. (copyfiles
  75.     (dest @default-dest)
  76.     (source "icons/install/Wzonka-Lad Guide.info")
  77.     (files)
  78. )
  79.  
  80. ;Install controlpad.library
  81.  
  82. (complete 24)
  83.  
  84. (set @default-dest "LIBS:")
  85.  
  86. (if (exists "LIBS:controlpad.library" (noreq))
  87.     (if (< (/ (getversion "LIBS:controlpad.library") 65536) (/ (getversion "libs/controlpad.library") 65536))
  88.         (copylib
  89.             (prompt "Install controlpad.library?\n(Required for Sega Joypad!)")
  90.             (help @copylib-help)
  91.             (source "libs/controlpad.library")
  92.             (dest @default-dest)
  93.             (confirm)
  94.         )
  95.     ) ; else
  96.         (copylib
  97.             (prompt "Install controlpad.library?\n(Required for Sega Joypad!)")
  98.             (help @copylib-help)
  99.             (source "libs/controlpad.library")
  100.             (dest @default-dest)
  101.             (confirm)
  102.     )
  103. )
  104.  
  105. ;Install the fonts
  106.  
  107. (complete 30)
  108.  
  109. (set @default-dest "FONTS:")
  110.  
  111. (copyfiles
  112.     (prompt "And the fonts...\nWhere do I put them?")
  113.     (help @copyfiles-help)
  114.     (source "fonts/")
  115.     (dest @default-dest)
  116.     (all)
  117.     (confirm)
  118. )
  119.  
  120. ;Install the sample ROM file(s)
  121.  
  122. (complete 36)
  123.  
  124. (set @default-dest (target))
  125.  
  126. (set @default-dest
  127. (askdir    (prompt "Where would you like to store your ROM files?\n(A drawer called \"cartridges\" will be made!)")
  128.     (help @askdir-help)
  129.     (default @default-dest)
  130.     (newpath)
  131.     )
  132. )
  133.  
  134. (set @default-dest
  135.     (tackon @default-dest (cat "cartridges")))
  136.  
  137. (makedir @default-dest
  138.     (prompt "Creating directory...")
  139.     (help @makedir-help)
  140. )
  141.  
  142. (copyfiles
  143.     (prompt "Install the sample ROM file(s) to:\n")
  144.     (help @copyfiles-help)
  145.     (source "cartridges")
  146.     (dest @default-dest)
  147.     (confirm)
  148.     (all)
  149. )
  150.  
  151. ;Install the sample battery ram(s)
  152.  
  153. (complete 42)
  154.  
  155. (set @default-dest (target))
  156.  
  157. (set @default-dest
  158. (askdir    (prompt "Where would you like to store your battery ram files?\n(A drawer called \"battery_rams\" will be made!)")
  159.     (help @askdir-help)
  160.     (default @default-dest)
  161.     (newpath)
  162.     )
  163. )
  164.  
  165. (set @default-dest
  166.     (tackon @default-dest (cat "battery_rams")))
  167.  
  168. (makedir @default-dest
  169.     (prompt "Creating directory...")
  170.     (help @makedir-help)
  171. )
  172.  
  173. (copyfiles
  174.     (prompt "Install the sample battery ram file(s) to:\n")
  175.     (help @copyfiles-help)
  176.     (source "battery_rams")
  177.     (dest @default-dest)
  178.     (confirm)
  179.     (all)
  180. )
  181.  
  182. ;Install the sample prefs
  183.  
  184. (complete 48)
  185.  
  186. (set @default-dest (target))
  187.  
  188. (set @default-dest
  189. (askdir    (prompt "And your cartridges prefs files?\n(A drawer called \"prefs\" will be made!)")
  190.     (help @askdir-help)
  191.     (default @default-dest)
  192.     (newpath)
  193.     )
  194. )
  195.  
  196. (set @default-dest
  197.     (tackon @default-dest (cat "prefs")))
  198.  
  199. (makedir @default-dest
  200.     (prompt "Creating directory...")
  201.     (help @makedir-help)
  202. )
  203.  
  204. (copyfiles
  205.     (prompt "Install the sample prefs-file to:\n")
  206.     (help @copyfiles-help)
  207.     (source "prefs")
  208.     (dest @default-dest)
  209.     (confirm)
  210.     (all)
  211. )
  212.  
  213. ;Install the sample iff
  214.  
  215. (complete 54)
  216.  
  217. (set @default-dest (target))
  218.  
  219. (set @default-dest
  220. (askdir    (prompt "Where would you like to store the example iff picture?\n(A drawer called \"iff\" will be made!)")
  221.     (help @askdir-help)
  222.     (default @default-dest)
  223.     (newpath)
  224.     )
  225. )
  226.  
  227. (set @default-dest
  228.     (tackon @default-dest (cat "iff")))
  229.  
  230. (makedir @default-dest
  231.     (prompt "Creating directory...")
  232.     (help @makedir-help)
  233. )
  234.  
  235. (copyfiles
  236.     (prompt "Install the example iff to:\n")
  237.     (help @copyfiles-help)
  238.     (source "iff")
  239.     (dest @default-dest)
  240.     (confirm)
  241.     (all)
  242. )
  243.  
  244. ;Install the sample vgb colour files
  245.  
  246. (complete 60)
  247.  
  248. (set @default-dest (target))
  249.  
  250. (set @default-dest
  251. (askdir    (prompt "And the VGB (tm) example colour files?\n(A drawer called \"vgb_colour_schemes\" will be made!)")
  252.     (help @askdir-help)
  253.     (default @default-dest)
  254.     (newpath)
  255.     )
  256. )
  257.  
  258. (set @default-dest
  259.     (tackon @default-dest (cat "vgb_colour_schemes")))
  260.  
  261. (makedir @default-dest
  262.     (prompt "Creating directory...")
  263.     (help @makedir-help)
  264. )
  265.  
  266. (copyfiles
  267.     (prompt "Install the VGB (tm) example colour files to:\n")
  268.     (help @copyfiles-help)
  269.     (source "vgb_colour_schemes")
  270.     (dest @default-dest)
  271.     (confirm)
  272.     (all)
  273. )
  274.  
  275. ;Install the extra Icons
  276.  
  277. (complete 66)
  278.  
  279. (set @default-dest (target))
  280.  
  281. (set @default-dest
  282. (askdir    (prompt "Where do you want the extra icons?\n(A drawer called \"icons\" will be made!)")
  283.     (help @askdir-help)
  284.     (default @default-dest)
  285.     (newpath)
  286.         )
  287.     )
  288.  
  289. (set @default-dest
  290.     (tackon @default-dest (cat "icons")))
  291.  
  292. (makedir @default-dest
  293.     (prompt "Creating directory...")
  294.     (help @makedir-help)
  295. )
  296.  
  297. (copyfiles
  298.     (prompt "Install the extra icons to:\n")
  299.     (help @copyfiles-help)
  300.     (source "icons")
  301.     (dest @default-dest)
  302.     (confirm)
  303.     (all)
  304. )
  305.  
  306. ;Install the tools directory
  307.  
  308. (complete 72)
  309.  
  310. (set @default-dest (target))
  311.  
  312. (set @default-dest
  313. (askdir    (prompt "Where do you want the extra tools?\n(A drawer called \"tools\" will be made!)")
  314.     (help @askdir-help)
  315.     (default @default-dest)
  316.     (newpath)
  317.     )
  318. )
  319.  
  320. (set @default-dest
  321.     (tackon @default-dest (cat "tools")))
  322.  
  323. (makedir @default-dest
  324.     (prompt "Creating directory...")
  325.     (help @makedir-help)
  326. )
  327.  
  328. (copyfiles
  329.     (prompt "Install the extra tools to:\n")
  330.     (help @copyfiles-help)
  331.     (source "tools")
  332.     (dest @default-dest)
  333.     (confirm)
  334.     (all)
  335. )
  336.  
  337. ;Install the gbs directory and an example gbs file
  338.  
  339. (complete 78)
  340.  
  341. (set @default-dest (target))
  342.  
  343. (set @default-dest
  344. (askdir    (prompt "And the gbs directory?\n(A drawer called \"gbs\" will be made!)")
  345.     (help @askdir-help)
  346.     (default @default-dest)
  347.     (newpath)
  348.     )
  349. )
  350.  
  351. (set @default-dest
  352.     (tackon @default-dest (cat "gbs")))
  353.  
  354. (makedir @default-dest
  355.     (prompt "Creating directory...")
  356.     (help @makedir-help)
  357. )
  358.  
  359. (copyfiles
  360.     (prompt "Install an gbs example file to:\n")
  361.     (help @copyfiles-help)
  362.     (source "gbs")
  363.     (dest @default-dest)
  364.     (confirm)
  365.     (all)
  366. )
  367.  
  368. ;Install the favourites directory and the favourite list
  369.  
  370. (complete 84)
  371.  
  372. (set @default-dest (target))
  373.  
  374. (set @default-dest
  375. (askdir    (prompt "And the favourites directory?\n(A drawer called \"favourites\" will be made!)")
  376.     (help @askdir-help)
  377.     (default @default-dest)
  378.     (newpath)
  379.     )
  380. )
  381.  
  382. (set @default-dest
  383.     (tackon @default-dest (cat "favourites")))
  384.  
  385. (makedir @default-dest
  386.     (prompt "Creating directory...")
  387.     (help @makedir-help)
  388. )
  389.  
  390. (copyfiles
  391.     (prompt "Install an favourite.list example to:\n")
  392.     (help @copyfiles-help)
  393.     (source "favourites")
  394.     (dest @default-dest)
  395.     (confirm)
  396.     (all)
  397. )
  398.  
  399. ;Install the game_genie directory and the game_genie list
  400.  
  401. (complete 90)
  402.  
  403. (set @default-dest (target))
  404.  
  405. (set @default-dest
  406. (askdir    (prompt "And the GameGenie directory?\n(A drawer called \"game_genie\" will be made!)")
  407.     (help @askdir-help)
  408.     (default @default-dest)
  409.     (newpath)
  410.     )
  411. )
  412.  
  413. (set @default-dest
  414.     (tackon @default-dest (cat "game_genie")))
  415.  
  416. (makedir @default-dest
  417.     (prompt "Creating directory...")
  418.     (help @makedir-help)
  419. )
  420.  
  421. (copyfiles
  422.     (prompt "Install an game_genie.list example to:\n")
  423.     (help @copyfiles-help)
  424.     (source "game_genie")
  425.     (dest @default-dest)
  426.     (confirm)
  427.     (all)
  428. )
  429.  
  430. ;Write out some copyright stuff
  431.  
  432. (complete 100)
  433.  
  434. (set @default-dest (target))
  435.  
  436. (message "\nEnjoy your Gameboy (tm) emulator!\n\n(c) Ville Helin 1996-1999\nvhelin@cc.hut.fi\n\n For comments about the installer mail to:\nLennart Johannesson\n95lenjo@ostrabo.uddevalla.se")
  437.